COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	
C00006 ENDMK
C⊗;

APPPN ←←'NYTSYS'	;disk area where NYT programs live
ERRPRG←←'ERROR '	;error-handling program

DEBUG←←0	;NON-ZERO FORCES DOER, GAP TO MOVE SYMBOL TABLE BEFORE READING .DAT

APMIDNIGHT←←=21*=3600	;SU-AI time in seconds when AP goes to next day

LF←←12	CR←←15  TAB←←11  ALT←←175  FF←←14

	LOC	41
	JSR	UUCODE
	LOC

;OPDEF	UEXIT	[001000,,];minor error.
;OPDEF	UBIGERR	[003000,,];horrendous error.
;OPDEF	UHUNG	[004000,,];ENTER failed on TXT file
OPDEF	UDELAY	[005000,,];FATAL ERROR, DO WAKEME TO DELAY RESTART OF [-NS-]
			;IN UDELAY, AC FIELD GIVES LENGTH OF DELAY IN 5-MINUTE UNITS
OPDEF	UFATAL	[006000,,];FATAL ERROR
OPDEF	UWARN	[007000,,];NON-FATAL ERROR, GIVE WARNING MESSAGE
OPDEF	UERROR	[002000,,];USER ERROR.


INTPAR←←400	;INTERRUPT ON PARITY ERROR
INTPTI←←1000	;INTERRUPT USED TO CHANGE NAME (PTY INPUT INTERRUPT)
INTTTI←←4	;INTERRUPT ON ESCAPE I

XBEGIN←←-1	;FULL WORD VALUES REPRESENTING SYMBOLS IN KEYW EXPRS: BEGINNING

XTIMES←←1	; *
XMINUS←←2	; -
XPLUS ←←3	; +
XSEQ  ←←4	; #N:M (NEXT WORD HAS N,,M)
XREC  ←←5	; <nbr> (meaning most recent <nbr> stories) (NEXT WD HAS <nbr>)
XMAX  ←←5	;LAST USED SPECIAL ESCAPE VALUE

RFCS←←200000
RFCR←←100000
CLSS←←40000
CLSR←←20000
INTINR←←100
INTINS←←40
INTTTI←←4
INTINP←←10

DDDLIN←←20000   IIILIN←←400000

; DATA-DISC MACROS AND DEFINITIONS
; COMMAND WORD -- ALTERNATING COMMANDS AND PARAMETERS
DEFINE CW(C1,B1,C2,B2,C3,B3) <
	<BYTE (8)<B1>,<B2>,<B3> (3)<C1>,<C2>,<C3>>!4
>

; COMMAND NAMES FOR DD COMMAND BYTES
EXCT←←0				;EXECUTE
FNCN←←1  ALPHBG←←16  ALPHA←←46	;FUNCTION, USUAL VALUE BYTES
CHNL←←2				;CHANNEL SELECT
COLM←←3				;COLUMN SELECT
HILIN←←4			;HIGH 5 BITS OF LINE
LOLIN←←5			;LOW 5 BITS OF LINE

COMLOC←←10	;STARTING LOCATION OF COMMON WORDS IN .DAT FILE
INDLOC←←200	;STARTING LOCATION OF 1K OF INDEX POINTERS IN .DAT FILE
DATLOC←←2200	;STARTING LOCATION OF DICT-, STORY-, AND WORD-OCCURRENCE- ENTRIES